(unless (null? *argv*)
  (let loop ((ls *argv*))
       (print (car ls))
       (aif (cdr ls)
            (progn (print " ")
                   (loop it)))))
(print "\n")
